home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
ipnet10a.zip
/
IPNET.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-05-16
|
5KB
|
249 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
;------------------------------------------------------------------------------
STRING012 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
STRING009 = PPEPath() + "IPNET.CFG"
FOpen 1, STRING009, 0, 2
FGet 1, STRING017
FGet 1, STRING014
FGet 1, STRING016
FGet 1, STRING013
FClose 1
INTEGER003 = 500
INTEGER002 = Len(STRING017)
INTEGER004 = 16777215
For INTEGER001 = 1 To INTEGER002
STRING015 = Mid(STRING017, INTEGER001, 1)
INTEGER004 = INTEGER004 - INTEGER003 * Asc(STRING015)
INTEGER003 = INTEGER003 + 3
Next
INTEGER005 = S2I(STRING016, 10)
If (INTEGER004 == INTEGER005) Then
Goto LABEL002
Else
Goto LABEL001
Endif
Cls
:LABEL001
Cls
PrintLn " @X0BIPNET.PPE by Michele Stewart @X07"
PrintLn " Copyright 1993 "
PrintLn " @X8CUnregistered Version - Ask your Sysop to Register@X07 "
PrintLn
Goto LABEL003
:LABEL002
Cls
PrintLn " @X0BIPNET.PPE by Michele Stewart @X07"
PrintLn " Copyright 1993 "
PrintLn
:LABEL003
If (Exist(PPEPath() + "IPINTRO.*")) Then
DispFile PPEPath() + "IPINTRO", 1 + 2 + 4
Else
Goto LABEL004
Endif
Goto LABEL005
:LABEL004
PrintLn
PrintLn "@X78 ┌@X7F───────────────────────────────────────────────────────────────────────────┐ @X07"
PrintLn "@X78 │ @X71 You are about to enter a NETMAIL message. Make sure you @X7F│ @X07"
PrintLn "@X78 │ @X71have the FULL node number of the addressee handy. @X7F│ @X07"
PrintLn "@X78 └───────────────────────────────────────────────────────────────────────────@X7F┘ @X07"
PrintLn
If (Len(STRING013) > 1) Then
Goto LABEL005
Else
Goto LABEL008
Endif
:LABEL005
If (Exist(PPEPath() + "IPMENU.*")) Then
DispFile PPEPath() + "IPMENU", 1 + 2 + 4
Else
Goto LABEL006
Endif
Goto LABEL007
:LABEL006
PrintLn
PrintLn "@X07 @X3E Choose Destination of Message @X08▄ @X07"
PrintLn " @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X07"
PrintLn
PrintLn " @X70 (1) @X71Fido/EchoNet Node @X08▄ @X07"
PrintLn " @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X07"
PrintLn
PrintLn " @X70 (2) @X71Internet Address @X08▄ @X07"
PrintLn " @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X07"
PrintLn
:LABEL007
STRING010 = ""
InputStr "(@X0C@TIMELEFT@ @X0Emin. left) Choose Destination, Enter=Abort", STRING010, 14, 1, "12A", 60
If (STRING010 == "1") Goto LABEL008
If (STRING010 == "2") Goto LABEL010
If (STRING010 == "a") Goto LABEL011
If (STRING010 == "") Goto LABEL011
STRING010 = ""
Goto LABEL005
:LABEL008
DispText 199, 32768
InputText "", STRING001, 11, 60
PrintLn
DispText 200, 32768
InputText "", STRING006, 11, 60
If (Len(STRING006) < 2) Goto LABEL011
PrintLn
DispText 498, 32768
GetUser
STRING007 = NoChar()
If (U_FSE == 1) STRING007 = YesChar()
InputYN "", STRING007, 11
PrintLn
If (Exist(PPEPath() + "IPINFO.*")) Then
DispFile PPEPath() + "IPINFO", 1 + 2 + 4
Else
Goto LABEL009
Endif
:LABEL009
InputStr "FidoNet Zone #", STRING004, 14, 5, "1234567890", 8 + 60
If (Len(STRING004) < 1) Then
STRING004 = "1"
Endif
InputStr "FidoNet Net #", STRING003, 14, 5, "1234567890", 8 + 60
If (Len(STRING003) < 1) Then
Goto LABEL011
Endif
InputStr "FidoNet Node #", STRING002, 14, 5, "1234567890", 8 + 60
If (Len(STRING002) < 1) Then
Goto LABEL011
Endif
InputStr "FidoNet Point #, if any", STRING005, 14, 5, "1234567890", 8 + 60
If (Len(STRING005) < 1) Then
STRING011 = ""
Else
STRING011 = "."
Endif
KbdStuff "E " + Chr(13) + STRING001 + Chr(13) + STRING006 + Chr(13) + STRING007 + Chr(13)
KbdStuff "@>" + STRING004 + ":" + STRING003 + "/" + STRING002 + STRING011 + STRING005 + Chr(13) + Chr(13)
Goto LABEL011
:LABEL010
InputStr "Enter full Internet address", STRING008, 14, 45, STRING012 + "@!.", 70
If (Len(STRING008) < 1) Goto LABEL011
PrintLn
DispText 200, 32768
InputText "", STRING006, 11, 60
If (Len(STRING006) < 2) Goto LABEL011
PrintLn
DispText 498, 32768
GetUser
STRING007 = NoChar()
If (U_FSE == 1) STRING007 = YesChar()
InputYN "", STRING007, 11
PrintLn
KbdStuff "E " + Chr(13) + "UUCP" + Chr(13) + STRING006 + Chr(13) + STRING007 + Chr(13)
KbdStuff "@>" + STRING013 + Chr(13) + "To: " + STRING008 + Chr(13) + Chr(13)
:LABEL011
Cls
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 4 Cls
; 39 Goto
; 20 Let
; 29 PrintLn
; 19 If
; 3 DispFile
; 1 FOpen
; 1 FClose
; 4 FGet
; 2 GetUser
; 6 InputStr
; 2 InputYN
; 5 DispText
; 3 InputText
; 4 KbdStuff
;
;
; ■ Functions used :
;
; 1 *
; 49 +
; 1 -
; 7 ==
; 8 <
; 1 <=
; 1 >
; 2 >=
; 10 !
; 2 &&
; 1 ||
; 9 Len(
; 1 Mid()
; 13 Chr()
; 1 Asc()
; 2 NoChar()
; 2 YesChar()
; 7 PPEPath()
; 3 Exist()
; 1 S2I()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 9 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------